From: Glenn Morris <rgm@gnu.org>
Date: Fri, 15 Jul 2011 22:53:39 +0000 (-0400)
Subject: * lisp/subr.el (read-char-choice): Allow quitting.  (Bug#9001)
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2800
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=26a7c5b1d5a3cc95ebdb70b95fe34d6cb29dcf89;p=emacs.git

* lisp/subr.el (read-char-choice): Allow quitting.  (Bug#9001)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca0efc0acae..58dabd0c1d4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-15  Glenn Morris  <rgm@gnu.org>
+
+	* subr.el (read-char-choice): Allow quitting.  (Bug#9001)
+
 2011-07-09  Lawrence Mitchell  <wence@gmx.li>
 
 	* net/gnutls.el (gnutls-min-prime-bits): New variable.
diff --git a/lisp/subr.el b/lisp/subr.el
index 94b28c007d1..d462283b7bd 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2161,7 +2161,9 @@ keyboard-quit events while waiting for a valid input."
           ;; read-event returns -1 if we are in a kbd macro and
           ;; there are no more events in the macro.  Attempt to
           ;; get an event interactively.
-          (setq executing-kbd-macro nil)))))
+          (setq executing-kbd-macro nil))
+	 ((and (not inhibit-keyboard-quit) (eq char ?\C-g))
+	  (keyboard-quit)))))
     ;; Display the question with the answer.  But without cursor-in-echo-area.
     (message "%s%s" prompt (char-to-string char))
     char))